#!/usr/bin/perl

  my $i;
  $i = 5;
  while ($i > 0) {
    print $i . "\n";
    $i = $i - 1;
  }
  print 42 . "\n";
